home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0669.ZIP / GETREADY.PRG < prev    next >
Text File  |  1986-11-09  |  218b  |  17 lines
  1. SET DEFA TO C:
  2. USE DATAFILE
  3. COPY TO C:\DATA\TWO_ONE FOR STATUS='FILLED'
  4. CLOS DATA
  5. !PROCOMM/FGETREADY
  6. CLEA
  7. USE DATAFILE
  8. IF FILE('ONE_TWO.DBF')
  9. APPE FROM ONE_TWO
  10. ENDI
  11. CLOS DATA
  12. ERASE ONE_TWO.DBF
  13. RETU
  14.  
  15.  
  16.  
  17.